home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / dora / doratgk.plp < prev    next >
Text File  |  1993-11-30  |  10KB  |  262 lines
  1. /*    BBS-NETでの処理から一つ取り出す    */
  2. %tgk    {[n]
  3.     var a[26];var b[12];var onenif[100];
  4.     onenif:=@getline(TGK,n,1);
  5.     case(@nth(onenif,1,{/}),
  6.         {ボード},{b:={ボード}},{再ログイン},{b:={再ﾛｸﾞｲﾝ}},
  7.         ,{b:=@nth(onenif,1,{/})});
  8.     case(@nochar(onenif),
  9.         0,{a:={                    }},2,{a:={                    }},
  10.         ,{a:=b|{/}|@nth(onenif,3,{/})|{/}|
  11.             @head(@nth(onenif,2,{/}),{,})});
  12.     case(@nochar(n)=1,{Yes},{a:={0}|n|{:}|a},{No},{a:=n|{:}|a});im(a);
  13.     };
  14. /*    BBS-NETでの処理実行日の指定    */
  15. %date{    select({実行する日を指定して下さい}|{  現在は }|@d2|{ です},
  16.         Wtime4,{im(d1)},
  17.         { 毎  日 },{im({毎日})},{ 奇数日 },{im({奇数})},
  18.         { 偶数日 },{im({偶数})},{ 日  曜 },{im({日曜})},
  19.         { 月  曜 },{im({月曜})},{ 火  曜 },{im({火曜})},
  20.         { 水  曜 },{im({水曜})},{ 木  曜 },{im({木曜})},
  21.         { 金  曜 },{im({金曜})},{ 土  曜 },{im({土曜})},
  22.         {毎月 1日},{im({01日})},{毎月05日},{im({05日})},
  23.         {毎月10日},{im({10日})},{毎月15日},{im({15日})},
  24.         {毎月20日},{im({20日})},{毎月25日},{im({25日})},
  25.         {毎月30日},{im({30日})},
  26.         {複数指定},{SNDMSG({nyuryo_f.snd});
  27.                 %dat @input({実行する日を入力して下さい\n}|
  28.                     {ｶﾝﾏ｢,｣で区切って複数指定可\n}|
  29.                     {例  奇,火,木,日,01,30},,
  30.                         @body(d1,{,},{,}));
  31.                 im({複数,}|dat|{,終わり})},
  32.         {設定なし},{im({未定})});
  33.     };
  34. /*    実行日表示用    */
  35. %d2     {case(d1,
  36.         {毎日},{im({毎  日})},{奇数},{im({奇数日})},
  37.         {偶数},{im({偶数日})},{日曜},{im({日  曜})},
  38.         {月曜},{im({月  曜})},{火曜},{im({火  曜})},
  39.         {水曜},{im({水  曜})},{木曜},{im({木  曜})},
  40.         {金曜},{im({金  曜})},{土曜},{im({土  曜})},
  41.         {01日},{im({毎月 1日})},{05日},{im({毎月 5日})},
  42.         {10日},{im({毎月10日})},{15日},{im({毎月15日})},
  43.         {20日},{im({毎月20日})},{25日},{im({毎月25日})},
  44.         {30日},{im({毎月30日})},{未定},{im({設定無し})},
  45.         {未設定},{im({未設定})},,{im({複数指定})})};
  46. /*    設定情報をファイルに保存する    */
  47. %writeTG{setcdir(CDIR);copyfile(TGKFILE,{ DORATGK.BAK});delfile(TGKFILE);
  48.     write(TGKFILE,{TGK    :=}|@xc({7b})|TGK|@xc({7d})|{;\n});
  49.     SETFILE2:={標準設定};
  50.     };
  51. /*    設定情報をもとに戻す    */
  52. %CANCEL    {SNDMSG({erande_f.snd});footnote({本当にもとに戻してもいいですか？});
  53.     select({本当にもとに戻してもいいですか？},
  54.         Wtime4,,
  55.         { Ｏ Ｋ },
  56.         {case(@filechk(TGKFILE),{Yes},
  57.             {setcdir(CDIR);#DORATGK.SET;SETFILE2:={標準設定}})},
  58.         { Ｎ Ｇ },);
  59.     };
  60. /*    ボードNo.の指定    */
  61. %setFORUM{[n]
  62.     var forum [8];var mes [60];var lib [40];var d1 [40];
  63.     %TGK1    @getline(TGK,n,1);
  64.     d1:=    @case(@nth(TGK1,2,{/}),{},{im({未設定})},
  65.                     ,{im(@nth(TGK1,2,{/}))});
  66.     forum:=    @nth(TGK1,3,{/});    mes:=    @nth(TGK1,4,{/});
  67.     lib:=    @nth(TGK1,5,{/});
  68.     loop    ({
  69.     footnote({巡回するボードを設定してください});SNDMSG({nyuryo_f.snd});
  70.         %a @plane(
  71.             {cネット名「}|NET|{」を指定してください\n}|
  72.             {t  ネット名      /xxxxxx\n}|
  73.             {c巡回するボードを設定してください\n}|
  74.             {t  ボード番号            /\n}|
  75.             {c    指定された会議室の未読を読みます\n}|
  76.             {c    ｶﾝﾏ｢,｣で区切って複数指定可(｢#｣は省略して下さい\n}|
  77.             {c    ｢ALL｣とすると全てのボードを巡回します\n}|
  78.             {t  ライブラリ番号        /\n}|
  79.             {c    指定されたﾗｲﾌﾞﾗﾘの最新のﾃﾞｰﾀ一覧を表示します\n}|
  80.             {c    ｶﾝﾏ｢,｣で区切って複数指定可\n}|
  81.             {c  巡回日  }|@d2|{\n}|
  82.             {s         / 変更 \n}|
  83.             {s                        / 設定 / 削除 / 取消 },
  84.             NET,mes,lib);
  85. forum:=    @head(@getline(a,1,1),{\n});    mes:=    @head(@getline(a,2,1),{\n});
  86. lib:=    @head(@getline(a,3,1),{\n});    %sel    @head(@getline(a,4,1),{\n});
  87. %ok    @head(@getline(a,5,1),{\n});
  88.         case(sel==1,{Yes},{SNDMSG({erande_f.snd});d1:=@date});
  89.         case(ok,{ 1},{TGK:=    @getline(TGK,1,n-1)|{ボード}|{/}|
  90.                 d1|{/}|forum|{/}|mes|{/}|lib|{/\n}|
  91.                 @getline(TGK,n+1);
  92.             im({No})},
  93.             { 2},{TGK:=    @getline(TGK,1,n-1)|{\n}|
  94.                 @getline(TGK,n+1);
  95.             im({No})},
  96.             { 3},{im({No})},
  97.             ,{case(ok={ 0}&&sel={ 0},
  98.                 {Yes},{im({No})},    /* 右ｸﾘｯｸで終了 */
  99.                 {No},{im({Yes})})}
  100.             );
  101.         });
  102.     };
  103. /*    SIGボードNo.の指定    */
  104. %setSIG{[n]
  105.     var forum [8];var SIGmes [40];var pass [8];var d1 [40];var lib [40];
  106.     %TGK1    @getline(TGK,n,1);
  107.     d1:=    @case(@nth(TGK1,2,{/}),{},{im({未設定})},
  108.                     ,{im(@nth(TGK1,2,{/}))});
  109.     forum:=    @nth(TGK1,3,{/});    SIGmes:=@nth(TGK1,4,{/});
  110.     pass:=    @nth(TGK1,5,{/});    lib:=    @nth(TGK1,6,{/});
  111.     loop    ({
  112.     footnote({巡回するSIGボードを設定してください});SNDMSG({nyuryo_f.snd});
  113.         %a @plane(
  114.             {cネット名「}|NET|{」を指定してください\n}|
  115.             {t  ネット名      /xxxxxx\n}|
  116.             {c巡回するSIGボードを設定してください\n}|
  117.             {t  SIGボード番号            /\n}|
  118.             {c    指定されたSIGボードの未読を読みます\n}|
  119.             {c    ｶﾝﾏ｢,｣で区切って複数指定可(｢#｣は省略して下さい\n}|
  120.             {t  SIGボードパスワード   /xxxxxxxx\n}|
  121.             {c    指定されたSIGボードのパスワードを\n}|
  122.             {c    入力して下さい\n}|
  123.             {t  ライブラリ番号        /\n}|
  124.             {c    指定されたﾗｲﾌﾞﾗﾘの最新のﾃﾞｰﾀ一覧を表示します\n}|
  125.             {c    ｶﾝﾏ｢,｣で区切って複数指定可\n}|
  126.             {c  巡回日  }|@d2|{\n}|
  127.             {s         / 変更 \n}|
  128.             {s                        / 設定 / 削除 / 取消 },
  129.             NET,SIGmes,pass,lib);
  130. forum:=    @head(@getline(a,1,1),{\n});    SIGmes:=@head(@getline(a,2,1),{\n});
  131. pass:=    @head(@getline(a,3,1),{\n});    lib:=    @head(@getline(a,4,1),{\n});
  132. %sel    @head(@getline(a,5,1),{\n});    %ok    @head(@getline(a,6,1),{\n});
  133.         case(sel==1,{Yes},{SNDMSG({erande_f.snd});d1:=@date});
  134.         case(ok,{ 1},{TGK:=    @getline(TGK,1,n-1)|{SIGボード}|{/}|
  135.                 d1|{/}|forum|{/}|SIGmes|{/}|pass|{/}|lib|{/\n}|
  136.                 @getline(TGK,n+1);
  137.             im({No})},
  138.             { 2},{TGK:=    @getline(TGK,1,n-1)|{\n}|
  139.                 @getline(TGK,n+1);
  140.             im({No})},
  141.             { 3},{im({No})},
  142.             ,{case(ok={ 0}&&sel={ 0},
  143.                 {Yes},{im({No})},    /* 右ｸﾘｯｸで終了 */
  144.                 {No},{im({Yes})})}
  145.             );
  146.         });
  147.     };
  148. /*    RTBBS-NETで行う処理を設定する    */
  149. %setTG    {[n]
  150.     case(@nochar(@nth(@getline(TGK,n,1),1,{/})),
  151.         0,{setTG1(n)},    /* 空文字列 */
  152.         2,{setTG1(n)},    /* 改行ｺｰﾄﾞのみ */
  153.         ,
  154.         {SNDMSG({erande_f.snd});footnote({処理を選択してください});
  155.         select({処理を選択してください},
  156.             Wtime4,,
  157.             { 変  更 },{setTG1(n)},
  158.             { 削  除 },{TGK:=@getline(TGK,1,n-1)|{\n}|
  159.                         @getline(TGK,n+1)},
  160.             { 中  止 },);
  161.         });
  162.     };
  163. %setTG1{[n]
  164.     case(@nth(@getline(TGK,n,1),1,{/}),
  165.         {ボード},{setFORUM(n)},{SIGボード},{setSIG(n)},
  166.         ,
  167.         {SNDMSG({erande_f.snd});
  168.           footnote(NET|{－ＮＥＴで行う処理を指定して下さい});
  169.           select(NET|{－ＮＥＴで行う処理を指定して下さい},
  170.             Wtime4,,
  171.             {  ボード     },{setFORUM(n)},
  172.             {  SIGボード  },{setSIG(n)},
  173.             {     終了     },);
  174.         });
  175.     };
  176. /*    NIFTYで行う処理を並べ変える    */
  177. %renTG    {var num[72];var count[72];var TGK2[3074];
  178.     count:=0;num:={};TGK2:={};
  179.     %tg01    @tgk(1);    %tg02    @tgk(2);    %tg03    @tgk(3);        %tg04    @tgk(4);    %tg05    @tgk(5);    %tg06    @tgk(6);
  180.     %tg07    @tgk(7);    %tg08    @tgk(8);    %tg09    @tgk(9);
  181.     %tg10    @tgk(10);    %tg11    @tgk(11);    %tg12    @tgk(12);
  182.  
  183.     %renum    {[n]
  184.         case    (num,{},{num:=n},,{num:=num|{,}|n});
  185.         case(TGK2,{},{TGK2:=@getline(TGK,n,1)},
  186.             ,{TGK2:=TGK2|@getline(TGK,n,1)});
  187.         count:=count+1;
  188.         };
  189.     %cancel1{case(count>0,{Yes},{count:=count-1});
  190.         case(count>0,{Yes},{TGK2:=@getline(TGK2,1,count)},
  191.             {No}, {TGK2:={}});
  192.         num:=@body(num,,{,});
  193.         };
  194.     loop    ({SNDMSG({erande_f.snd});
  195.         footnote(NET|{－ＮＥＴで行う順序を指定して下さい});
  196.         display    ({現在 }|num|{ が指定されています\n});
  197.         select    (NET|{－ＮＥＴで行う順序を指定して下さい},,,
  198.             tg01,{renum(1);im({Yes})},tg02,{renum(2);im({Yes})},
  199.             tg03,{renum(3);im({Yes})},tg04,{renum(4);im({Yes})},
  200.             tg05,{renum(5);im({Yes})},tg06,{renum(6);im({Yes})},
  201.             tg07,{renum(7);im({Yes})},tg08,{renum(8);im({Yes})},
  202.             tg09,{renum(9);im({Yes})},tg10,{renum(10);im({Yes})},
  203.             tg11,{renum(11);im({Yes})},tg12,{renum(12);im({Yes})},
  204.             {    一  個  取  消    },{cancel1;im({Yes})},
  205.             {      全  取  消      },{num:={};TGK2:={};im({Yes})},
  206.             {    指  定  終  了    },{TGK:=TGK2;im({No})});
  207.         });
  208.     };
  209. /*    設定情報をファイルに保存する    */
  210. %SAVE    {var    newfile    [64];SNDMSG({erande_f.snd});
  211.     footnote({設定を保存するファイルを指定して下さい｢現在のﾈｯﾄ名=}|NET|{｣});
  212.     newfile:=@filesel({TG});
  213.     case(newfile<>{},{Yes},{
  214.         %newdir    @getcdir;
  215.         case(@nochar(newdir)==3,
  216.             {Yes},{newfile:=newdir|newfile},
  217.             {No},{newfile:=newdir|{\}|newfile});
  218.         delfile(newfile);
  219.         write(newfile,{TGK    :=}|@xc({7b})|TGK|@xc({7d})|{;\n});
  220.         });
  221.     setcdir(CDIR);
  222.     };
  223. /*    ファイルから設定情報を読み込む    */
  224. %LOAD    {var    newfile    [64];SNDMSG({erande_f.snd});
  225.     footnote({設定を読み込むファイルを指定して下さい});
  226.     newfile:=@filesel({TG});
  227.     case(newfile<>{},{Yes},{
  228.         %newdir    @getcdir;
  229.         case(@nochar(newdir)==3,
  230.             {Yes},{newfile:=newdir|newfile},
  231.             {No},{newfile:=newdir|{\}|newfile});
  232.         case(@filechk(newfile),{Yes},
  233.             {%ExcPilot {#}|newfile;ExcPilot;setcdir(CDIR);
  234.                 SETFILE2:=@tail(newfile,{\})});
  235.         });
  236.     setcdir(CDIR);
  237.     };
  238. /*    BBS-NETで行う処理を設定する    */
  239. %setBBS{loop    ({SNDMSG({erande_f.snd});
  240.     footnote(NET|{－ＮＥＴで行う処理は曜日＆日付で選択出来ますよ});
  241.         select    (NET|{－ＮＥＴで行う処理を指定して下さい},,,
  242.             @tgk(1),{setTG(1);im({Yes})},
  243.             @tgk(2),{setTG(2);im({Yes})},
  244.             @tgk(3),{setTG(3);im({Yes})},
  245.             @tgk(4),{setTG(4);im({Yes})},
  246.             @tgk(5),{setTG(5);im({Yes})},
  247.             @tgk(6),{setTG(6);im({Yes})},
  248.             @tgk(7),{setTG(7);im({Yes})},
  249.             @tgk(8),{setTG(8);im({Yes})},
  250.             @tgk(9),{setTG(9);im({Yes})},
  251.             @tgk(10),{setTG(10);im({Yes})},
  252.             @tgk(11),{setTG(11);im({Yes})},
  253.             @tgk(12),{setTG(12);im({Yes})},
  254.             {     順  序  変  更     },{renTG;  im({Yes})},
  255.              {    元の設定にもどす    },{CANCEL;  im({Yes})},
  256.             {  設定をファイルに保存  },{SAVE;    im({Yes})},
  257.             { ファイルから設定を読込 },{LOAD;    im({Yes})},
  258.             {   設定を保存して終了   },{writeTG;im({No})},
  259.             {保存しない(一時的な変更)},
  260.             {SETFILE2:={一時設定};im({No})}
  261.             )})};
  262. setBBS;